home *** CD-ROM | disk | FTP | other *** search
- 10 tm = peek(56) * 256 + peek(55)
- 15 tm = tm - 242
- 20 lsb= (tm/256-int(tm/256)) * 256
- 25 msb = int(tm/256)
- 30 poke 55,lsb: poke 56,msb
- 35 poke 253,lsb+13: poke 254,msb
- 40 for i = tm to tm + 241
- 50 read a: poke i,a: chk = chk + a: next i
- 60 x = 828: for i = x to x + 23
- 70 read a: poke i,a: chk = chk + a: next i
- 80 if chk <> 33283 then print "data error": end
- 90 print "sys" tm "to initiate": new
- 100 data162,0,189,60,3,149,115,232,224,23,208,246,0,201,64,240,22,234
- 120 data234,234,234,201,58,176,10,201,32,240,7,56,233,48,56,233,208,96
- 140 data76,115,0,160,0,185,0,2,201,64,208,243,200,185,0,2,201,0,240,9
- 160 data201,45,208,244,169,171,153,0,2,169,1,133,122,160,1,24,185,0,2
- 180 data32,107,201,32,19,198,160,0,32,121,0,32,107,201,165,20,5,21,208
- 200 data6,169,255,133,20,133,21,160,1,132,198,160,1,132,15,177,95,240
- 210 data85,32,44,200,32,215,202,134,1,132,2,173,198,0,240,251,169,0
- 240 data141,198,0,166,1,164,2,200,177,95,170,200,177,95,197,21,208,4,228,20
- 250 data240,2,176,44,132,73,32,205,221,169,32,164,73,41,127,32,71,203
- 270 data201,34,208,6,165,15,73,255,133,15,200,240,17,177,95,208,16
- 290 data168,177,95,170,200,177,95,134,95,133,96,208,163,76,116,196,16
- 310 data218,201,255,240,214,36,15,48,210,56,233,127,170,132,73,160,255,202
- 320 data240,8,200,185,158,192,16,250,48,245,200,185,158,192,48,181,32
- 350 data71,203,208,245,0,230,122,208,2,230,123,173,0,2,201,58,240,10
- 360 data201,32,240,239,108,253,0
- 370 data234,234,234,96
-